home *** CD-ROM | disk | FTP | other *** search
/ Atari Mega Archive 1 / Atari Mega Archive - Volume 1.iso / apps / math / ols.zoo / matrix.h < prev    next >
Text File  |  1993-04-16  |  2KB  |  60 lines
  1.  
  2.  
  3. /* File misc.c */
  4. void PrintMatrix (float **M, int rows, int cols, char *fmt);
  5. void d_PrintMatrix (double **M, int rows, int cols, char *fmt);
  6. void Transpose (float **A, int n);
  7. void d_Transpose (double **A, int n);
  8. void CopyMatrix (double **A, double **B, int rows, int cols);
  9. void CopyVector (double *x, double *y, int K);
  10. void RandomSym (double **A, int K, int *seed);
  11. void RandomMatrix (double **A, int rows, int cols, int *seed);
  12. double trace (double **A, int N);
  13.  
  14. /* File lustuff.c */
  15. int Inverse (float **A, float **Y, int n);
  16. int d_Inverse (double **A, double **Y, int n);
  17. int d_LinSys (double **A, double *b, double *x, int K);
  18.  
  19. /* File multiply.c */
  20. void MMult (float **A, float **B, float **C, int M, int N, int K);
  21. void d_MMult (double **A, double **B, double **C, int M, int N, int K);
  22. float dot (float *x, float *y, int N);
  23. double d_dot (double *x, double *y, int N);
  24. double df_dot (double *x, float *y, int N);
  25.  
  26. /* File jacobi.c */
  27. void d_jacobi (double **a, int n, double *d, double **v, int *nrot);
  28.  
  29. /* File randompd.c */
  30. void RandomPD (double **A, int K, int *seed);
  31. void LessRandomPD (double **A, int K, int *seed);
  32.  
  33. /* File cholesky.c */
  34. void cholesky (double **A, double **U, int N, int *nullity);
  35. int pd_LinSys (double **A, double *b, double *x, int K);
  36. int pd_Inverse (double **A, int K);
  37. double pd_Logdet (double **A, int K);
  38.  
  39. /* File covcor.c */
  40. void trans_crm (double **cormat, int size, double **result);
  41. void untrans_crm (double **cormat, int size, double **result);
  42. void cr2cv (double **cormat, int size, double **covmat);
  43. void cv2cr (double **covmat, int size, double **cormat);
  44.  
  45. /* File vectors.c */
  46. void scalar_vector_mult (double *x, int K, double k);
  47. void vadd (double *x, double *y, int K, double *z);
  48. double enorm (double *x, int K);
  49.  
  50. /* File quad.c */
  51. void mquad (int n, int m, double **x, double **A, double **B);
  52. double vquad (int n, double *x, double **A);
  53. double vquad_sym (int n, double *x, double **A);
  54.  
  55. /* File hql_eig.c */
  56. void hql_eig (double **a, int n, double *d, double **z);
  57.  
  58. /* File sweep.c */
  59. void sweep (double **A, int N);
  60.